home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / HyperCardIIGS / Interfaces / for APW / HyperXCMD.p < prev    next >
Encoding:
Text File  |  1991-01-04  |  4.8 KB  |  170 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: HyperXCMD.p
  3. ;
  4. ; For use with HyperCardIIGS Version 1.0
  5. ;
  6. ; Copyright Apple Computer, Inc. 1990
  7. ; All Rights Reserved
  8. ;
  9. ********************************************}
  10.  
  11. UNIT HyperXCMD;
  12.  
  13. INTERFACE
  14.  
  15. USES Types,
  16.      QuickDraw;
  17.  
  18. CONST _CallBackVector = $E10220;
  19.  
  20. TYPE Str19 = String[19];
  21.      Str31 = String[31];
  22.  
  23.      XCmdPtr = ^XCmdBlock;
  24.      XCmdBlock = RECORD
  25.            paramCount:    INTEGER;
  26.            params:        ARRAY[1..16] OF Handle;
  27.            returnValue:    Handle;
  28.            passFlag:    BOOLEAN;
  29.            userID:        INTEGER;
  30.            returnStat:    INTEGER;    { 0 if normal return, 1 for error }
  31.          END;
  32.  
  33.  
  34. PROCEDURE BeginXSound;
  35. INLINE $A2,$0029,$22,_CallBackVector;
  36.  
  37. FUNCTION BoolToStr (bool: BOOLEAN): Str31;
  38. INLINE $A2,$0010,$22,_CallBackVector;
  39.  
  40. PROCEDURE ChangedMaskAndData(whatChanged: INTEGER);
  41. INLINE $A2,$002C,$22,_CallBackVector;
  42.  
  43. FUNCTION CopyGSString (src: GSString255Hndl): GSString255Hndl;
  44. INLINE $A2,$0020,$22,_CallBackVector;
  45.  
  46. PROCEDURE EndXSound;
  47. INLINE $A2,$002A,$22,_CallBackVector;
  48.  
  49. FUNCTION EvalExpr (expr: Str255): Handle;
  50. INLINE $A2,$0002,$22,_CallBackVector;
  51.  
  52. FUNCTION ExtToStr (extendedNumber: Extended): Str31;
  53. INLINE $A2,$0011,$22,_CallBackVector;
  54.  
  55. FUNCTION FindNamedResource (resourceType: INTEGER; resourceName: Str255;
  56.                             VAR theFile: INTEGER; VAR resourceID: Longint): BOOLEAN;
  57. INLINE $A2,$0026,$22,_CallBackVector;
  58.  
  59. FUNCTION GetFieldByID (cardFieldFlag: BOOLEAN; fieldID: INTEGER): Handle;
  60. INLINE $A2,$0016,$22,_CallBackVector;
  61.  
  62. FUNCTION GetFieldByName (cardFieldFlag: BOOLEAN; fieldName: Str255): Handle;
  63. INLINE $A2,$0014,$22,_CallBackVector;
  64.  
  65. FUNCTION GetFieldByNum (cardFieldFlag: BOOLEAN; fieldNum: INTEGER): Handle;
  66. INLINE $A2,$0015,$22,_CallBackVector;
  67.  
  68. FUNCTION GetGlobal (globName: Str255): Handle;
  69. INLINE $A2,$0012,$22,_CallBackVector;
  70.  
  71. PROCEDURE GetMaskAndData(VAR mask: LocInfo; VAR data: LocInfo);
  72. INLINE $A2,$002B,$22,_CallBackVector;
  73.  
  74. FUNCTION GetResourceName (resourceType: INTEGER; resourceID: Longint): Str255;
  75. INLINE $A2,$0028,$22,_CallBackVector;
  76.  
  77. FUNCTION GSConcat (src1: GSString255Hndl; src2: GSString255Hndl): GSString255Hndl;
  78. INLINE $A2,$0021,$22,_CallBackVector;
  79.  
  80. FUNCTION GSStringEqual (src1: GSString255Hndl; src2: GSString255Hndl): BOOLEAN;
  81. INLINE $A2,$0022,$22,_CallBackVector;
  82.  
  83. FUNCTION GSToPString (src: GSString255Hndl): Str255;
  84. INLINE $A2,$001E,$22,_CallBackVector;
  85.  
  86. FUNCTION GSToZero (src: GSString255Hndl): Handle;
  87. INLINE $A2,$0023,$22,_CallBackVector;
  88.  
  89. FUNCTION LoadNamedResource (resourceType: INTEGER; resourceName: Str255): Handle;
  90. INLINE $A2,$0025,$22,_CallBackVector;
  91.  
  92. FUNCTION LongToStr (posNum: Longint): Str31;
  93. INLINE $A2,$000D,$22,_CallBackVector;
  94.  
  95. FUNCTION NumToHex (longNumber: Longint; nDigits: INTEGER): Str31;
  96. INLINE $A2,$000F,$22,_CallBackVector;
  97.  
  98. FUNCTION NumToStr (longNumber: Longint): Str31;
  99. INLINE $A2,$000E,$22,_CallBackVector;
  100.  
  101. FUNCTION PasToZero (str: Str255): Handle;
  102. INLINE $A2,$0007,$22,_CallBackVector;
  103.  
  104. FUNCTION PToGSString (src: Str255): GSString255Hndl;
  105. INLINE $A2,$001F,$22,_CallBackVector;
  106.  
  107. PROCEDURE ReturnToPas (zeroStr: Ptr; VAR pasStr: Str255);
  108. INLINE $A2,$001B,$22,_CallBackVector;
  109.  
  110. PROCEDURE ScanToReturn (VAR scanPtr: Ptr);
  111. INLINE $A2,$001C,$22,_CallBackVector;
  112.  
  113. PROCEDURE ScanToZero (VAR scanPtr: Ptr);
  114. INLINE $A2,$001D,$22,_CallBackVector;
  115.  
  116. PROCEDURE SendCardMessage (msg: Str255);
  117. INLINE $A2,$0001,$22,_CallBackVector;
  118.  
  119. PROCEDURE SendHCMessage (msg: Str255);
  120. INLINE $A2,$0005,$22,_CallBackVector;
  121.  
  122. PROCEDURE SetFieldByID (cardFieldFlag: BOOLEAN; fieldID: INTEGER; fieldVal: Handle);
  123. INLINE $A2,$0019,$22,_CallBackVector;
  124.  
  125. PROCEDURE SetFieldByName (cardFieldFlag: BOOLEAN; fieldNName: Str255; fieldVal: Handle);
  126. INLINE $A2,$0017,$22,_CallBackVector;
  127.  
  128. PROCEDURE SetFieldByNum (cardFieldFlag: BOOLEAN; fieldNum: INTEGER; fieldVal: Handle);
  129. INLINE $A2,$0018,$22,_CallBackVector;
  130.  
  131. PROCEDURE SetGlobal (globName: Str255; globValue: Handle);
  132. INLINE $A2,$0013,$22,_CallBackVector;
  133.  
  134. PROCEDURE SetResourceName (resourceType: INTEGER; resourceID: Longint; resourceName: Str255);
  135. INLINE $A2,$0027,$22,_CallBackVector;
  136.  
  137. FUNCTION StringEqual (str1: Str255; str2: Str255): BOOLEAN;
  138. INLINE $A2,$001A,$22,_CallBackVector;
  139.  
  140. FUNCTION StringLength (strPtr: Ptr): Longint;
  141. INLINE $A2,$0003,$22,_CallBackVector;
  142.  
  143. FUNCTION StringMatch (stringPattern: Str255; target: Ptr): Ptr;
  144. INLINE $A2,$0004,$22,_CallBackVector;
  145.  
  146. FUNCTION StrToBool (str: Str31): BOOLEAN;
  147. INLINE $A2,$000B,$22,_CallBackVector;
  148.  
  149. FUNCTION StrToExt (str: Str31): Extended;
  150. INLINE $A2,$000C,$22,_CallBackVector;
  151.  
  152. FUNCTION StrToLong (str: Str31): Longint;
  153. INLINE $A2,$0009,$22,_CallBackVector;
  154.  
  155. FUNCTION StrToNum (str: Str31): Longint;
  156. INLINE $A2,$000A,$22,_CallBackVector;
  157.  
  158. PROCEDURE ZeroBytes (dstPtr: Ptr; longCount: Longint);
  159. INLINE $A2,$0006,$22,_CallBackVector;
  160.  
  161. FUNCTION ZeroToGS (src: Handle): GSString255Hndl;
  162. INLINE $A2,$0024,$22,_CallBackVector;
  163.  
  164. PROCEDURE ZeroToPas (zeroStr: Ptr; VAR pasStr: Str255);
  165. INLINE $A2,$0008,$22,_CallBackVector;
  166.  
  167.  
  168. IMPLEMENTATION
  169. END.
  170.